      INTEGER IACORB
      LOGICAL PERTCC, OMESCF, ACTORB
C
      COMMON /PERACT/ IACORB(MXCORB,8),
     &                PERTCC, OMESCF, ACTORB(MXCORB,8)
